home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_scatter.ifx < prev    next >
Text File  |  2004-08-03  |  1KB  |  55 lines
  1. /*
  2.  * $VER: EOT_Scatter.ifx 2.6 (17.09.97)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  *
  5.  * Inputs:
  6.  *    Word(Arg(1),1) = Frame number (1 - N)
  7.  *    Word(Arg(1),2) = Main filename ("-" if not specified)
  8.  *    Word(Arg(1),3) = Swap filename ("-" if not specified)
  9.  *    Word(Arg(1),4) = Sequence number (?)
  10.  *    Word(Arg(1),5) = Total number of frames (N)
  11.  *
  12.  * Returns:
  13.  *    0 if successful, non-zero on failure
  14.  *
  15.  */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. framenum = Word(Arg(1),1)
  20. mainname = Word(Arg(1),2)
  21. swapname = Word(Arg(1),3)
  22. seqnum     = Word(Arg(1),4)
  23. framemax = Word(Arg(1),5)
  24.  
  25. base  = 'Autofx_Scatter_'
  26.  
  27. celsize = GETCLIP(base||'CelSize')
  28. rand    = GETCLIP(base||'Rand')
  29. tmin    = GETCLIP(base||'ThreshMin')
  30. tmax    = GETCLIP(base||'ThreshMax')
  31. source    = GETCLIP(base||'Source')
  32. type    = GETCLIP(base||'Type')
  33. x    = GETCLIP(base||'X')
  34. y    = GETCLIP(base||'Y')
  35. dmin    = GETCLIP(base||'DisplaceMin')
  36. dmax    = GETCLIP(base||'DisplaceMax')
  37. angle    = GETCLIP(base||'Angle')
  38.  
  39. IF celsize = "" THEN celsize = 1
  40. IF rand    = "" THEN rand    = 1234
  41. IF tmin    = "" THEN tmin    = 0
  42. IF tmax    = "" THEN tmax    = 255
  43. IF source  = "" THEN source  = 3
  44. IF type    = "" THEN type    = 1
  45. IF x       = "" THEN x       = 160
  46. IF y       = "" THEN y       = 100
  47. IF dmin    = "" THEN dmin    = 0
  48. IF dmax    = "" THEN dmax    = 100
  49. IF angle   = "" THEN angle   = 270
  50.  
  51. Hook Scatter celsize rand tmin tmax source type x y dmin dmax angle
  52.  
  53. EXIT rc
  54.  
  55.